home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / pctj486.arc / MULDIV.PAS < prev    next >
Pascal/Delphi Source File  |  1985-09-07  |  943b  |  54 lines
  1. program mul_div;
  2.  
  3. var
  4.  
  5.      hour,min,sec,frac,nr,i : integer;
  6.      a,b,c                  : real;
  7.  
  8. procedure TIMER;
  9.  
  10. type
  11.     REGPACK = record
  12.                     AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS : integer
  13.               end;
  14.  
  15. var
  16.    regs: Regpack;
  17.  
  18. begin
  19.      with REGS do
  20.      begin
  21.           AX := $2C00;
  22.           MsDos(REGS);
  23.           HOUR := hi(CX);
  24.           MIN  := lo(CX);
  25.           SEC  := hi(DX);
  26.           FRAC := lo(DX);
  27.      end;
  28. end;
  29.  
  30.  
  31. begin
  32.      writeln('Ten thousand multiplications, ten thousand divisions');
  33.      writeln;
  34.      nr := 5000;
  35.      a  := 2.71828;
  36.      b  := 3.14159;
  37.      c  := 1;
  38.  
  39.      timer;
  40.      writeln('START: ',min,':',sec,'.',frac);
  41.      for i := 1 to nr do
  42.      begin
  43.         c := c*a;
  44.          c := c*b;
  45.          c := c/a;
  46.          c := c/b;
  47.      end;
  48.  
  49. timer;
  50. writeln('END  : ',min,':',sec,'.',frac);
  51. writeln('Done.');
  52. writeln('Error = ',c-1);
  53. end.
  54.